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SPL Vi.1 PAGE 


e000 
CTTT) 
CET 1) 
aaaa 
auaa 
2000 
F630 
Fé631 
F633 
F636 
F637 
F638 
F639 
F65A 
F63C 
F63F 
F640 
Fé41 
F643 
F646 
F648 
F64B 
F64E 
F65@ 
F652 
F654 
F857 
F659 
F6esc 
F65E 
F661 
Fé6z 
F665 
F668 
FééA 
Fé6D 
FééF 
F671 
F674 
F676 
F679 
F67E 
F67D 
F68a 
F682 
F685 
F687 
F689 
F6BC 
F68E 
F691 
F693 
F695 
F698 
F69A 
F69C 
F69F 
FéA1 


F2ADF6 
ZE33 


FE60 
CAADF6 
FESO 
CAADF6 
ZESS 
FE4Q 
CAADF6 
2E32 
FE30 
CAADF6 
2E31 
FE20 


TITL ‘JOYSTICK EN BASIC / MLP° 
ENTREE BASIC 
VARS = "@" NUMERO DU PADDLE CONCERNE 
CALLM #xxxx,VARS APPEL DE LA VALEUR 


VAR$ = "9" a "8" VALEUR DU DEPLACEMENT 

ORG @F630H 

BASIC FUSH BE 
CPI 22H 
JNZ EXIT 
MOV E,M 
INX H 
MOV D,M 
LDAX D 
CPI 1H 
JNZ EXIT 
INX D 
LDAX D 
CFI 36H 
JF EXIT 
SUI 30H 
JM EXIT 
CALL MLF 
ANI aFoH 
MVI L 37H 
CPI QFaH 
JZ VAL 
CPI QEOH 
JZ VAL 
CPI @D@H 
JZ VAL 
MME LL: 38H 
CPI @C@H 
JZ VAL 
CPI QE@H 
174 VAL 
MVI L 4H 
CFI DAUH 
JZ VAL 
CPI 90H 
JZ VAL 
MVI L 36H 
CFI 30H 
JZ VAL 
CPI 7@H 
JP VAL 
MVI L TEH 
CFI 60H 
J2Z VAL 
CFI 50H 
JZ VAL 
MVI L 3SH 
CPI 40H 
J2 VAL 
MVI L 32 
CPI 0H 
JZ VAL 
MVI L 31H 
CFI Z@H 


SPL V1.1 PAGE 2 

F6A3 CAADF6 JZ 
F6A6 FE10 CPI 
F6AB  CAADF6 JZ 
F6AB ZE30 MVI L 
F6AD 7D VAL MOV AL 
F&AE 12 STAX D 
F6AF C1 EXIT FOP B 
F6BQ C9 RET 
F6B1 FFFF DW 
F6B3 FFFF DW 
F6BS FFFF DW 
F6B7 FFFF DW 
F6B9 FFFF DW 
F6BB FFFF DW 
FORD FFFF DW 
F6BF FF DE 
F6Ca : ENTREE MLF 
F6Ca ; ENTREE, À : 
F6ca : SORTIE, À : 
F6C@ 3 

F6CQ ES MLP PUSH H 
F6Ci D5 FUSH D 
FéC2 CS FUSH E 
F6C3 57 MOV D,A 
F6C4 3A4000Q LDA 
F6C7 E6F8 ANI 
F6C9 B2 ORA D 
F6CA F608 ORI 
F6CC CD@8D8 CALL 
F6CF 3E30 MVI À 
F6D1 @1@6FC LXI B 
Fé6D4 @2 STAX E 
F6DS 21FFFF LXIH 
F6D8 22008FC SHLD 
F6DB 3AG1FD LDA 
F6DE EB S1 XCHG 
F6DF 3E00 MVI À 
F6Ei O2 STAX E 
F6E2 2A@G@FC LHLD 
F6ES CD14DE CALL 
F6E8  DADEF6 JC 
F6EB CD26DE CALL 
F6éEE 11CEFF LXI D 
F6F1 19 DAD D 
F6eF2 DAF6F6 JC 
F6FS 210000 LXI H 
F6F8 7C s2 MOV A.H 
F6F9  B7 ORA À 
F6FA CAFFF6 JZ 
F6FD 2EFF MVI L 
F6FF  3E36 SZ MVI À 
F701 O2 STAX E 
F702 3A4000 LDA 
F705 EéFa ANI 
F707 CDO6D8 CALL 
F70A 7D MOV AL 
F70B Ci FOF E 
F7@C Di FOF D 


JOYSTICK EN BASIC / MP 


VAL 
10H 
VAL 
30H 


OFFFFH 
OFFFFH 
OFFFFH 
OFFFFH 
@FFFFH 
OFFFFH 
QFFFFH 
OFFH 


VALEUR DU PADDLE @ a 5 
VALEUR DU DEFLACEMENT 
LES AUTRES REGISTRES SONT SAUVEGARDES 


40H 
@F 8H 


8H 
OD808H 
30H 
@FCO6H 


OFFFFH 
aFCOGH 
@FDG1H 


2H 
OF Ca@@H 
ODE26H 
OFFCEH 
S2 


aH 


S3 
QFFH 
36H 


40H 
OF OH 
OD806H 
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F7@D E1i 

F7QE C9 

F70F FF 

F710 

BASIC :F650 VAL 
S3 :F6FF 


RES 


JOYSTICK EN BASIC / MP 


POP H 
RET 

DE QFFH 

END 

:F6AD EXIT :F6AF MLP  :F6CO S1 :F6DE S2 :FéF£ 
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SPL V1.1 PAGE 1 JOYSTICK EN BASIC / MLP 
0800 TITL ‘JOYSTICK EN BASIC / MLP’ 
0000 3 ENTREE BASIC 

o0aa 3 VAR$ = "@" NUMERO DU PADDLE CONCERNE 
0000 3 CALLM #xxxx.VARS APPEL DE LA VALEUR 
aa 3 VARS$ = "@" a "8" VALEUR DU DEPLACEMENT 
oo ORG @F710H 
F710 CS BASIC PUSH B 

F711 FE22 CPI 22H 
F713 C28FF7 JNZ EXIT 
F716 SE MOV E,M 

F717 23 INX H 

F718 56 MOV D,M 

F719 1A LDAX D 

F71A FEOi CPI 1H 
F71C C28FF7 JNZ EXIT 
F71F 13 INX D 

F72Q 14 LDAX D 

F721 FES6 CPI 36H 
F723 F28FF7 JP EXIT 
F726 D630 SUI 30H 
F728 FABFF7 JM EXIT 
F72B CDAOF7 CALL MLP 
F72E E6FQ ANI @FaH 
F730 2E37 MVI L 27H 
F732 FEFO CPI aFaH 
F734  CABDF7 JZ VAL 
F737 FEEO CPI QEGH 
F739 CA8DF7 JZ VAL 
F73C FEDO CFI @D@H 
F73E CABDF7 J2 VAL 
F741 2E38 MVI L 38H 
F743 FECO CPI @CaH 
F745 CABDF7 JZ VAL 
F748 FEBQ CPI aBaH 
F74A CABDF7 JZ VAL 
F74D 2E34 MVI L 34H 
F74F FEAQ CFI aAgH 
F751 CABDF7 JZ VAL 
F754 FE90 CPI 90H 
F756 CABSDF7 JZ VAL 
F759 2E36 MVI L 36H 
F75B FE80 CFI 80H 
F75D CABDF7 JZ VAL 
F760@ FE70 CPI 70H 
F762 F28DF7 JF VAL 
F765 2E33 MVI L 33l 
F767 FE60 CPI 68H 
F769  CABDF7 JZ VAL 
F76C FESQ CFI 50H 
F76E CABDF7 JZ VAL 
F771 Z2E35 MVI L 35H 
F773 FE40 CFI 40H 
F775  CABDF7 JZ VAL 
F778 2E32 MVI L 32H 
F774 FE30 CFI 30H 
F77C CA8SDF7 JZ VAL 
F77F 2E31 MVI L 31H 
F781 FE20 CFI 20H 


HE; 


SPL V1.1 PAGE 2 JOYSTICK EN BASIC / MP 
F783 CAGDF7 JZz VAL 
F786 FE1Q CPI 10H 
F788 CASDF7 JZ VAL 
F78B 2E30 MVI L 30H 
F78D 7D VAL MOV A,L 

F78E 12 STAX D 

F78F C1 EXIT FOF B 

F790 C9 RET 

F791 FFFF DW OFFFFH 
F793 FFFF DW QFFFFH 
F795 FFFF DW OFFFFH 
F797 FFFF DW OFFFFH 
F799  FFFF DW OFFFFH 
F79B FFFF DW OFFFFH 
F79D FFFF DW OFFFFH 
F79F FF DB OFFH 
F7A0 3 ENTREE MLP 

F7A0 3; ENTREE, À : VALEUR DU PADDLE @ a 5 
F7A0 3: SORTIE, À : VALEUR DU DEPLACEMENT 
F7A08 ; LES AUTRES REGISTRES SONT SAUVEGARDES 
F7AG ES MLP FUSH H 

F7A1 DS PUSH D 

F7AZ CS FUSH E 

F7A3 67 MOV H,A 

F7A4 ES PUSH H 

F7AS  @106FC LXI B OFCO6H 
F7A8 21FFFF LXI H OFFFFH 
F7AB EB S1 XCHG 

F7AC 3E00 MVI À @H 
F7AE 02 STAX B 

F7AF  ZABGFC LHLD @QFCOH 
F7B2 CD14DE CALL ODE 14H 
F7ES  DAABF7 JC S1 
F7B8 CD26DE CALL @DE26H 
F7EB L11CEFF LXI D OFFCEH 
F7BE 19 DAD D 

F7EF  DACSF7 JC S2 
F7C2 210000 LXI H OH 
F7CS 7C S2 MOV A.H 

F7Cé B7 ORFA A 

F7C7 CACCF7 JZ S3 
F7CA 2EFF MVI L OFFH 
F7CC 3E36 SZ MVI A 76H 
F7CE 02 STAX B 

F7CF 544000 LDA 40H 
F7D2 EéF@ ANI aF@H 
F7D4 CDO6D8 CALL GD826H 
F7D7 Di FOF D 

F7D8 7D MOV AL 

F7D9 FS FUSH FSW 

F7DA :A400Q LDA 40H 
F7DD E6F8 ANI QF8H 
F7DF H2 OKA D 

F7E0 F608 ORI 8H 
F7E2 CDO8D8 CALL @D808H 
F7ES 3ETQ MVI A Z0H 
F7E7 02 STAX BE 

F7E8 21FFFF LXI H OFFFFH 


MES 


SPL V1.1 PAGE 3 JOYSTICK EN BASIC / MLP 
F7EB 220@0FC SHLD @FCOGH 

F7EE 3AG1FD LDA OFDO1H 

F7F1 F1 FOP PSW 

F7F2 Ci POP B 

F7F3 Di FOF D 

F7F4  E1 POP H 

F7FS C9 RET 

F7F6 FFFF DW OFFFFH 

F7F8 FFFF DW QFFFFH 

F7FA FFFF DW OFFFFH 

F7FC END 

BASIC :F719 VAL :F78D EXIT :F78F MLP :F7A0 Si :F7AB S2 SF 7E 
S3 :F7CC 
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Loos deu fase des essais Sauce V2 masque #FS poor Vorr 

Li vous obteceg ox. Ualaot dœus voue pee à Ce Quile. 

Gi vous cbheuss ar exeurple #8, chst bu er oce sai ei, 

cle leupérahie ue ra pers moebher Labor a-de À de 

#hé co FA; wals vec obfrceg #AF Vous requaz de 


Le des va eur Lpénevres > #AF, par eeuple 
| Cést post ce la ue ls 


ce Æeved d alex ai pes 
Hccérel es Ce 


vettr- ap dat 
La valeur FE oo ps 
NT Sul phables | fes soû 
mis. Éd Lauce ee ceoX ad £c 


toulege : 
, Prrarere - Les ps Raul oh Cables ec ver 
Los que Le Sayshe got É œual oœo r- œlr-a: 
el es ar A D ea patate. Fe 


10 REM 
15 REM 
2 REM 
25 REM 
30 REM 
48 CLE 
so COL 
60 MOD 
70 PRI 
80 CcoL 
90 MOD 
à X=X 
72 NCO 
95 DOT 
94 WAI 
98 DOT 
77 WAI 
100 NEF 
110 GOS 
120 IF 

1:50 IF 

140 IF 

150 IF 

160 IF 

170 IF 

180 IF 

170 IF 

z00 F=P 
210 IF 

300 GOT 
1000 KREM 
1010 REM 
102 REM 
1940 Y=Y 
1050 IF 

107Q RET 
2000 REM 
2010 REM 
2020 REM 
2040 X=X 
2050 IF 

2070 RET 
2000 REM 
3010 REM 
3020 REM 
3040 Y=Y 
3050 IF 

3070 RET 
4000 REM 
401Q REM 
492Q REM 
4040 X=X 
405Q IF 

407Q RET 
65000 REM 
65001 REM 
65002 REM 
65010 JOY 
65020 IF 

65050 IF 

65040 1F 

65050 IF 

65060 IF 

6507Q IF 


PE De De ee D Pa a ee De Ne a a PP ee De ae a a PE De ee a Pa a Pa Ne 


X*x PGM EXEMPLE FOUR JOYSTICK #*%4% 


AE eee a Pa De De a a a Po Pa a ee a ea Pa ee he Pa Pa Pa Pa a a 


VOIR LES EXPLICATIONS EN 65300 
RAR NN NN RENTRER NS NN EN NN ESS R 
AR 256 
ORT 8000 
E © 
NT CHR$(12): 
ORG B8000@ 
E 1 
MAX/2.0:Y=YMAX/2.0 
L=SCRN(X.,Y) 
X,Y @ 
T TIME Z 
X,Y NCOL 
T TIME € 
=3.0 
UR 65000:REM **%x SUBROUTINE POUR JOYSTICK xxx 
JOY=1.0 THEN GOSUB 1000 
JOY=2.0 THEN GOSUR 2000 
JOY=3.0 THEN GOSUE 2000 
JOY=4.0 THEN GUSUE 4000 
JOY=5.0 THEN GOSUE 1000:GOSUB 2000 
JOY=6.0 THEN GOSUE 2000:GOSUB 3000 
JOY=7.0 THEN GOSUE :000:GOSUEB 4000 
JOY=8.0 THEN GOSUB 4020:GO0SUB 1200 


EEK(#FD0@) IAND 16 
F=16.@ THEN DOT X,Y 0 
0 92: 

XXX EN HAUT *XxXx 
+1.0 

Y>YMAX THEN Y=YMAX 
URN 

xxx A DROITE **xx 
+1.0 

X>XMAX THEN X=XMAX 
URN 

XXX EN HAS *XxxX 
—-1.0 

Y<O.0 THEN Y=0.0 
URN 

X4X*X A GAUCHE *XxX*X 
-1.0 

X<0.0 THEN X=0.0@ 
URN 


AE A ee A D A a A a Pa a a PE 


XXX SUEROUTINE FOUR JOYSTICK *Xx%x%X 

ee Pa PP a Da Pa Ps a Pa a Na Pa Pa Pa Pa a Pa Pa a Pa a Pa a Pa Pa a Pa Pa 
=INT((FDL(NEF) IAND #F@)/16) 
JOY=Q THEN GOTO 65110 
JOY=1.0 OR JOY=2.@ THEN JOY=1.@:GOT0 65110 
JOY=3:.0 THEN JOY=2.0:GOTO 65110 
JOY=4.Q THEN JOY=5.U:50T0 65110 

JOY=5.0 OR JQY=6.Q THEN JOY=5.0:GOTO 65110 
JOY=7.0@ OK JO0Y=8.Q THEN JOY=6.0:G60T0 65110 


DMEL2 


65080 
65090 
65100 
65110 
65500 
65310 
65320 
653:0 
65340 
65:50 
65360 
65:70 
65580 
65390 
65400 
65410 
65420 
65450 
65440 
65450 
65460 


IF JOY=9.@ OR JOY=10.@ THEN JOY=4.0:GOTO 65110 
1F JOY=11.0 Of JOY=12.0 THEN JOY=8.0:GOT0 65110 
JOY=7.0 

RETURN 


REM ee me ee 


REM *xxXxXx EXPLICATIONS *xx#%X 

REM vraimen 

REM ON FOSE NEF=X, OÙ X VAUT LE NUMERO DE PADDLE. 
REM ON APPELLE LA ROUTINE EN 65000, GOSUR 45000. 
REM AU RETOUR DE LA ROUTINE ON ABTIENT UN CHIFFRE 
REM ENTRE @ ET 8 DANS JOY. 


REM mme ne men 


REM JOY=1 => EN HAUT 

REM JOY=2 =} A DROITE 

REM JOY=35 =} EN HAS 

REM JOY=4 À GAUCHE 

REM JOY=S EN HAUT ET À DROITE 
REM JOY=6 EN BAS ET A DROITE 

REM JOY=7 EN BAS ET À GAUCHE 

REM JOY=8 =; EN HAUT ET A GAUCHE 


REM rm ne en 


DEL: 


